home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs38.d81 / laser20.arc / SCREEN GEM.LNX / b1 (.txt) next >
Commodore BASIC  |  2009-10-10  |  2KB  |  14 lines
  1. 0 IFA=0THENA=1:GOSUB6:PRINTP1$;:LOAD"B2",8,1
  2. 1 SYS52480:PRINTP2$;
  3. 2 GETA$:IFA$=""THEN2
  4. 3 IFA$="Y"THEN5
  5. 4 POKE198,4:PRINT"[147]LOAD"CHR$(34)"SCREEN GEM"CHR$(34)",8";:POKE631,13:POKE632,82:POKE633,117:POKE634,13:END
  6. 5 POKE198,4:PRINT"[147]LOAD"CHR$(34)"SCREEN GEM DOC"CHR$(34)",8";:POKE631,13:POKE632,82:POKE633,117:POKE634,13:END
  7. 6 P1$="*** [204]OADING [211]PEED [204]OADER ***":P2$="*** [201]NSTRUCTIONS? ([217] OR CR/[206][160]***":POKE53281,6:POKE53280,6:PRINTCHR$(14)"[147][150]                                      ";:PRINT"  [154][146][161]   [154][146][161]   [154][146][161]   [154][146][161]   [154][146][161] ";
  8. 7 PRINT"  [154][146][161] [154] [146][161] [154] [146][161]   [154][146][161]   [154][146][161] [187][172]";:PRINT" [154] [153][146][161] [153][146][162][162][161] [153][146][162][162][161] [153][146][187] [153][146][161] [153][146][162]";:PRINT"[162][161] [153][146][162][162][161][160] [153][146][161] [153] [146][161] [153][146][162][162][161] [153][146][162][162][161]";:PRINT" [161][146][161] [153] [158][146][161]   [158][146][161] [158]  [146][161]   [158][146][161] ";:PRINT" [158] [146][161]  [158] [146][161] [158][146][187]  [158][146][161][161] [158]  [146][161]  [158]";
  9. 8 PRINT" [146][161] [161][146][161] [158] [188][146][162][187] [146][161]   [146][161]  [146][162][161]";:PRINT" [146][162] [146][161] [146][162] [146][161] [188][146][187]  [146][161] [146][188]";:PRINT"[187][146][161] [146][162] [146][161] [146][162][187]  [159][146][161]   [159][146][161] ";:PRINT"  [159][146][161] [159][146][187] [159][146][161]   [159][146][161]   [159][146][161] [159] [146][161]";:PRINT" [159] [146][161]   [159][146][161]   [159][146][161] [159] [146][161] [159] [158][188][146][162][162]";
  10. 9 PRINT"[162][188][146][162][162][162][188][146][162][188][146][162][188][146][162][162][162][188][146][162][162][162][188][146][162] [188][146][162] [188][146]";:PRINT"[162][162][162][188][146][162][162][162][188][146][162] [188][146][162] [154]                 [146][161]";:PRINT"[187][161][161]           (C)     [159]                ";:PRINT" [146][161][187][188][146][172]                   [150]           ";:PRINT"      [188][146][162] [190][172] [162][162]                   [146][161][162] ";
  11. 10 PRINT" [146][161][161]    [146][161][162][162]    [146][161][161][162][187][161]              ";:PRINT"[158]    [146][161] [146][161][188][146][161][161]    [146][161]      [146][161][161]      ";:PRINT"           [154]    [146][161]  [161][161][161][161] [146]  [146][161][161] [161] [161][146] ";:PRINT" [161][162][162][172][146] [161][146]  [161][161][146][161][161] 1986 [150]    [146][161] [146][161][161][161][161]";:PRINT"[161] [146]  [146][161] [146][187][161][188][161][161][146][187][161] [146][162][161] [190][146][188][162][161][161][146][161][161] ";
  12. 11 PRINT"     [159]    [146][161] [146][161][161][161][161][161] [146]  [146][161] [146][161][161] [161][161][146][161][161]";:PRINT"  [146][161]  [161]  [161][146][161][161]          [188][146][162][162][188][188][188][188][146][162][172]";:PRINT" [188][146][162][162][188][146][162][190][146][162][162][188]  [188]  [146][162][162][190][146][162][172][190]      [153]  ";:PRINT"  [188][146][162][162][162][162][162][162][162][190] [188][146][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][190]     ";:PRINT"  [154]          WITH [205]ED-[210]ES GRAPHICS      ";
  13. 12 PRINT"   [159]                                        ":RETURN
  14.